TbsPolyglotManager Class |
The CurrentLangChanging event fires exactly before changing from one current language to other current language. It occurs event for not successful tries (for example target language is not available).
property CurrentLangChanging: TCurrentLangChangingEvent read write;
type TCurrentLangChangingEvent = procedure (Sender: TObject; OldLanguage, NewLanguage: string; var Cancel: Boolean) of object;
Set the Cancel parameter to True to prevent Current Language switching.